home *** CD-ROM | disk | FTP | other *** search
/ Physics Lessons / Physics Lessons.iso / pc / sample / fgapp / system / loadless.mac < prev    next >
Encoding:
Text File  |  1996-01-20  |  2.9 KB  |  156 lines
  1. iff (loadlesson == 1)
  2.   {
  3.   FileExists("[fg]fgapp\algebra\algebra.fge")
  4.   iff (lastanswer)
  5.       {
  6.       FileOpen("[fg]fgapp\algebra\algebra.fge")
  7.       return
  8.       }
  9.   goto ERROR_LABEL
  10.   }
  11. iff (loadlesson == 2)
  12.   {
  13.   FileExists("[fg]fgapp\precalc\precalc.fge")
  14.   iff (lastanswer)
  15.     {
  16.     FileOpen("[fg]fgapp\precalc\precalc.fge")
  17.     return
  18.     }
  19.   goto ERROR_LABEL
  20.   }
  21. iff (loadlesson == 3)
  22.   {
  23.   FileExists("[fg]fgapp\calc\calculus.fge")
  24.   iff (lastanswer)
  25.     {
  26.     FileOpen("[fg]fgapp\calc\calculus.fge")
  27.     return
  28.     }
  29.   goto ERROR_LABEL
  30.   }
  31. iff (loadlesson == 4)
  32.   {
  33.   FileExists("[fg]fgapp\sat\sat.fge")
  34.   iff (lastanswer)
  35.     {
  36.     FileOpen("[fg]fgapp\sat\sat.fge")
  37.     return
  38.     }
  39.   goto ERROR_LABEL
  40.   }
  41. iff (loadlesson == 5)
  42.   {
  43.   FileExists("[fg]fgapp\mathintr\mathintr.fge")
  44.   iff (lastanswer)
  45.     {
  46.     FileOpen("[fg]fgapp\mathintr\mathintr.fge")
  47.     return
  48.     }
  49.   goto ERROR_LABEL
  50.   }
  51. iff (loadlesson == 6)
  52.   {
  53.   FileExists("[fg]fgapp\arithmet\arithmet.fge")
  54.   iff (lastanswer)
  55.     {
  56.     FileOpen("[fg]fgapp\arithmet\arithmet.fge")
  57.     return
  58.     }
  59.   goto ERROR_LABEL
  60.   }
  61. iff (loadlesson == 7)
  62.   {
  63.   FileExists("[fg]fgapp\geometry\geom.fge")
  64.   iff (lastanswer)
  65.     {
  66.     FileOpen("[fg]fgapp\geometry\geom.fge")
  67.     return
  68.     }
  69.   goto ERROR_LABEL
  70.   }
  71. iff (loadlesson == 8)
  72.   {
  73.   FileExists("[fg]fgapp\statist\statist.fge")
  74.   iff (lastanswer)
  75.     {
  76.     FileOpen("[fg]fgapp\statist\statist.fge")
  77.     return
  78.     }
  79.   goto ERROR_LABEL
  80.   }
  81. iff (loadlesson == 9)
  82.   {
  83.   FileExists("[fg]fgapp\gre\gre.fge")
  84.   iff (lastanswer)
  85.     {
  86.     FileOpen("[fg]fgapp\gre\gre.fge")
  87.     return
  88.     }
  89.   goto ERROR_LABEL
  90.   }
  91. iff (loadlesson == 10)
  92.   {
  93.   FileExists("[fg]fgapp\physics\physics.fge")
  94.   iff (lastanswer)
  95.     {
  96.     FileOpen("[fg]fgapp\physics\physics.fge")
  97.     return
  98.     }
  99.   goto ERROR_LABEL
  100.   }
  101. iff (loadlesson == 11)
  102.   {
  103.   FileExists("[fg]fgapp\chem\chem.fge")
  104.   iff (lastanswer)
  105.     {
  106.     FileOpen("[fg]fgapp\chem\chem.fge")
  107.     return
  108.     }
  109.   goto ERROR_LABEL
  110.   }
  111. iff (loadlesson == 12)
  112.   {
  113.   FileExists("[fg]fgapp\trig\trig.fge")
  114.   iff (lastanswer)
  115.     {
  116.     FileOpen("[fg]fgapp\trig\trig.fge")
  117.     return
  118.     }
  119.   goto ERROR_LABEL
  120.   }
  121. iff (loadlesson == 13)
  122.   {
  123.   FileExists("[fg]fgapp\prealgb\prealgb.fge")
  124.   iff (lastanswer)
  125.     {
  126.     FileOpen("[fg]fgapp\prealgb\prealgb.fge")
  127.     return
  128.     }
  129.   goto ERROR_LABEL
  130.   }
  131. iff (loadlesson == 14)
  132.   {
  133.   FileExists("[fg]fgapp\basicm\basicm.fge")
  134.   iff (lastanswer)
  135.     {
  136.     FileOpen("[fg]fgapp\basicm\basicm.fge")
  137.     return
  138.     }
  139.   goto ERROR_LABEL
  140.   }
  141. iff (loadlesson == 15)
  142.   {
  143.   FileExists("[fg]fgapp\samples\samples.fge")
  144.   iff (lastanswer)
  145.     {
  146.     FileOpen("[fg]fgapp\samples\samples.fge")
  147.     return
  148.     }
  149.   goto ERROR_LABEL
  150.   }
  151. return
  152.  
  153. #ERROR_LABEL
  154. outputtext ("This lesson is not available.\nTo purchase a copy please call:\nFuture Graph, Inc. at 1-800-LEARN-FG")
  155.  
  156.